home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 43.zip / ANC 15.adf / REXX / arpcopy.txed next >
Text File  |  1987-01-01  |  2KB  |  87 lines
  1. /* This TxEd Plus macro will copy the copyrighted TxEd Plus programs
  2.     from the TxEd Plus master diskette onto your system disk.
  3.     NOTE THAT THIS WILL DUPLICATE COPYRIGHTED SOFTWARE WHICH
  4.     MAY ONLY BE USED BY THE OWNER OF TXED PLUS
  5.  */
  6.  
  7. 'TIMEOUT 0'        /* Turn off timeouts    */
  8. 'LOAD REXX:HELP3'
  9. 'WINDOW 0 0 640 140'
  10.  
  11.  
  12. ADDRESS COMMAND 'MAKEDIR RAM:Temp'
  13. ADDRESS COMMAND 'COPY C:COPY RAM:'
  14. ADDRESS COMMAND 'RAM:COPY C:ASSIGN RAM:'
  15. ADDRESS COMMAND 'RAM:COPY C:DELETE RAM:'
  16. ADDRESS COMMAND 'RAM:COPY C:RUN RAM:'
  17.  
  18. SAY 'CLICK IN THE CLI WINDOW TO ANSWER THESE QUESTIONS'
  19. SAY 'Copy ARP executable programs?'
  20. SAY '( Type OK to copy, anything else will skip)'
  21. PULL str
  22. if str = 'OK' then do
  23.     SAY 'Copying ARPEXEC.ARC'
  24.     ADDRESS COMMAND 'RAM:COPY TXED:ARP/arpexec.arc RAM:TEMP'
  25.     end
  26. else say '    Skipping ARPEXEC.ARC'
  27.  
  28. SAY 'Copy ARC for de-arcing the selected files? (OK)'
  29. SAY '  (ARC is shareware, please support the authors)'
  30. PULL str
  31. if str = 'OK' then do
  32.     SAY 'Copying ARC'
  33.     ADDRESS COMMAND 'RAM:COPY TXED:C/ARC RAM:TEMP'
  34.     end
  35. else say '    Skipping ARC'
  36.  
  37. SAY 'Copy ARP user documentation? (OK)'
  38. PULL str
  39. if str = 'OK' then do
  40.     SAY 'Copying USERDOCS.ARC'
  41.     ADDRESS COMMAND 'RAM:COPY TXED:ARP/userdocs.arc RAM:TEMP'
  42.     end
  43. ELSE say '    Skipping USERDOCS.ARC'
  44.  
  45. SAY 'Copy ARP compiler support files programs? (OK)'
  46. PULL str
  47. if str = 'OK' then do
  48.     SAY 'Copying PROG.ARC'
  49.     ADDRESS COMMAND 'RAM:COPY TXED:ARP/Prog.arc RAM:TEMP'
  50.     end
  51. ELSE say '    Skipping PROG.ARC'
  52.  
  53. SAY 'Copy ARP programmers documentation? (OK)'
  54. PULL str
  55. if str = 'OK' then do
  56.     say 'Copying PRODOCS.ARC'
  57.     ADDRESS COMMAND 'RAM:COPY TXED:ARP/prodocs.arc RAM:TEMP'
  58.     end
  59. ELSE say '    Skipping PRODOCS.ARC'
  60.  
  61. SAY 'Copy CONMAN? (OK)'
  62. SAY ' (ConMan is shareware, please support the author)'
  63. PULL str
  64. if str = 'OK' then do
  65.     SAY 'Copying CONMAN.ARC'
  66.     ADDRESS COMMAND 'RAM:COPY TXED:ARP/CONMAN.ARC RAM:TEMP'
  67.     end
  68. ELSE say '    Skipping CONMAN.ARC'
  69.  
  70. ADDRESS COMMAND 'RAM:ASSIGN C: RAM:'
  71.  
  72. SAY 'NOW REMOVE THE TXED PLUS DISKETTE!'
  73. SAY 'Insert your formatted diskette in drive DF0:'
  74. SAY 'Then type OK to copy, DELETE to discard'
  75. PULL str
  76. IF str = 'OK' THEN do
  77.     SAY '    Copying files to your diskette in drive DF0:'
  78.     ADDRESS COMMAND 'RAM:COPY RAM:TEMP df0:'
  79.     end
  80. ELSE if str = 'DELETE' THEN DO
  81.     ADDRESS COMMAND 'RAM:DELETE RAM:TEMP ALL'
  82.     SAY 'DISCARDED ALL TEMP FILES IN RAM:'
  83.     end
  84. ELSE SAY 'ABORTED BY USER!'
  85.  
  86. ADDRESS COMMAND 'RAM:ASSIGN C: TXED:C'
  87.